home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 January / 1990-01.d64 / sprite text (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  2KB  |  68 lines
  1. 10 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 20 poke53280,0:poke53281,0
  3. 30 print"[147]"tab(14)"sprite text"
  4. 40 printtab(13)"copyright 1990"
  5. 50 printtab(7)"compute! publications, inc."
  6. 60 printtab(11)"all rights reserved"
  7. 70 print"a$="chr$(34)" sprite text "chr$(34)":rem define string"
  8. 80 print"poke 49534,208:rem select font"
  9. 90 print"poke 49252,234:rem select y pos"
  10. 100 print"sys 49152 a$:rem scroll string"
  11. 110 print"sys 49588:rem erase string"
  12. 1000 fora=49152to49620:readaa:pokea,aa:nexta
  13. 1010 data120,169,173,141,20,3,169,192
  14. 1020 data141,21,3,162,7,189,157,192,157
  15. 1030 data248,7,202,16,247,162,0,169,0
  16. 1040 data157,0,62,157,0,63,232,208,247
  17. 1050 data32,139,176,32,133,177,160,0
  18. 1060 data177,71,240,108,141,64,193,200
  19. 1070 data177,71,141,73,193,200,177,71
  20. 1080 data141,74,193,169,3,141,177,192
  21. 1090 data169,8,141,50,193,169,255,141
  22. 1100 data62,193,169,0,141,106,193,162,7
  23. 1110 data160,14,189,165,192,153,0,208
  24. 1120 data202,136,136,16,245,162,14,169
  25. 1130 data234,157,1,208,202,202,16,249
  26. 1140 data169,224,141,16,208,169,27,141
  27. 1150 data17,208,173,100,192,141,18,208
  28. 1160 data169,255,141,21,208,141,23,208
  29. 1170 data141,29,208,169,1,141,26,208
  30. 1180 data162,7,169,1,157,39,208,202,16
  31. 1190 data250,169,127,141,13,220,88,96
  32. 1200 data248,249,250,251,252,253,254
  33. 1210 data255,24,72,120,168,216,8,56,104
  34. 1220 data206,177,192,169,3,208,8,169,3
  35. 1230 data141,177,192,206,203,192,169,16
  36. 1240 data72,173,18,208,141,211,192,238
  37. 1250 data203,192,162,7,169,0,157,39,208
  38. 1260 data202,16,250,169,234,205,18,208
  39. 1270 data240,249,104,56,233,1,208,223
  40. 1280 data162,21,30,194,63,62,193,63,62
  41. 1290 data192,63,62,130,63,62,129,63,62
  42. 1300 data128,63,62,66,63,62,65,63,62,64
  43. 1310 data63,62,2,63,62,1,63,62,0,63,62
  44. 1320 data194,62,62,193,62,62,192,62,62
  45. 1330 data130,62,62,129,62,62,128,62,62
  46. 1340 data66,62,62,65,62,62,64,62,62,2
  47. 1350 data62,62,1,62,62,0,62,202,202,202
  48. 1360 data16,179,206,50,193,169,8,208
  49. 1370 data111,169,8,141,50,193,238,62
  50. 1380 data193,162,255,224,0,208,5,162,0
  51. 1390 data142,62,193,189,0,192,168,41
  52. 1400 data127,201,32,176,11,173,106,193
  53. 1410 data73,128,141,106,193,76,58,193
  54. 1420 data152,74,74,74,74,74,170,152,56
  55. 1430 data253,172,193,9,0,162,3,10,46
  56. 1440 data145,193,202,208,249,141,144
  57. 1450 data193,173,145,193,41,7,24,105
  58. 1460 data208,141,145,193,169,0,141,14
  59. 1470 data220,169,35,133,1,162,7,160,21
  60. 1480 data189,0,208,153,194,63,202,136
  61. 1490 data136,136,16,244,169,39,133,1
  62. 1500 data169,1,141,14,220,169,1,141,25
  63. 1510 data208,76,49,234,0,0,64,32,0,64
  64. 1520 data128,128,120,169,49,141,20,3
  65. 1530 data169,234,141,21,3,169,27,141,17
  66. 1540 data208,169,0,141,21,208,169,0,141
  67. 1550 data26,208,169,129,141,13,220,88,96
  68.